home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / document / hypertxt / xfsl / source / purec / fix31 / cookie.s next >
Encoding:
Text File  |  1995-11-25  |  904 b   |  34 lines
  1. ; GetCookie-Routine, (PD) 1995, Dirk Haun @ WI2
  2.  
  3.                export get_cookie
  4.  
  5.                import Supexec
  6.  
  7. module         get_p_cookies
  8.                move.l    $5a0.w,d0
  9.                rts
  10. endmod
  11.  
  12. ; int get_cookie(long cookie[D0],long *cval[A0]);
  13.  
  14. module         get_cookie
  15.                movem.l   D4/A2-A3,-(A7)
  16.                move.l    D0,D4
  17.                move.l    A0,A3
  18.                lea       get_p_cookies,A0
  19.                jsr       Supexec
  20.                tst.l     D0
  21.                beq.s     c_ende
  22.                move.l    D0,A0
  23.                clr.l     D0
  24. c_loop:        move.l    (A0)+,D1
  25.                beq.s     c_ende
  26.                move.l    (A0)+,D2
  27.                cmp.l     D4,D1
  28.                bne.s     c_loop
  29. c_found:       move.l    D2,(A3)
  30.                moveq     #1,D0
  31. c_ende:        movem.l   (A7)+,D4/A2-A3
  32.                rts
  33. endmod
  34.